home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / Import File™ 1.0.cpt / Import File™ 1.0 / background_2646.txt < prev    next >
Text File  |  1990-12-13  |  2KB  |  90 lines
  1. -- background: 2646 from stack: in.0
  2. -- bmap block id: 2251
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=0 top=301 right=331 bottom=205
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Import Microsoft File™
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   ask "Which File Document do you wish to import?" with "?"
  23.   if it is empty then exit mouseUp
  24.   put it into fileName
  25.   open file fileName
  26.   ask "In which stack do want the data?" with "?"
  27.   if it is empty then exit mouseUp
  28.   put it into stackName
  29.   go stackName
  30.   go to last card
  31.   repeat forever
  32.     doMenu "New Card"
  33.  
  34.     read from file fileName until return
  35.     if it is empty then
  36.       go to first card
  37.       close file fileName
  38.       exit mouseUp
  39.     else put tab into last char of it
  40.     repeat with x=1 to the number of fields
  41.       put char 1 to offset (tab,it) of it into field x
  42.       delete last char of field x
  43.       delete char 1 to offset (tab,it) of it
  44.     end repeat
  45.   end repeat
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 2 (button)
  51. -- low flags: 00
  52. -- high flags: 0001
  53. -- rect: left=207 top=296 right=334 bottom=244
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 7190 / 7190
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: New Button
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0001
  67. -- rect: left=243 top=296 right=334 bottom=281
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 22308 / 22308
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New Button
  76.  
  77.  
  78. -- part 4 (button)
  79. -- low flags: 00
  80. -- high flags: 0001
  81. -- rect: left=280 top=296 right=334 bottom=321
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 1000 / 1000
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: New Button
  90.